home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
tspa3555.zip
/
TSUNTK.INT
< prev
next >
Wrap
Text File
|
1996-09-07
|
2KB
|
57 lines
(*
Timo Salmi UNiT K
A Turbo Pascal unit of MS-DOS 4.0+ specific routines
All rights reserved 26-Aug-92
This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
NON-INSTITUTIONAL purposes, provided it is not changed in any way, and
that a proper attribution is made. For ANY other usage, such as use in a
business enterprise or at a university, contact the author for the terms
of registration.
The units are under development. Comments and contacts are solicited. If
you have any feedback about this unit, please do not hesitate to use
electronic mail for communication.
The author shall not be liable to the user for any direct, indirect or
consequential loss arising from the use of, or inability to use, any unit,
program or file howsoever caused. No warranty is given that the units and
programs will work under all circumstances.
Timo Salmi (email: ts@uwasa.fi WWW: http://uwasa.fi/~ts/)
Professor of Accounting and Business Finance
Faculty of Accounting & Industrial Management
University of Vaasa
P.O. BOX 700, FIN-65101 Vaasa, Finland
*)
unit TSUNTK;
(* ======================================================================= *)
interface
(* ======================================================================= *)
uses TSUNTB, { TSUNTK needs internally the number conversion routines }
{$IFDEF VER40}
TSUNT45,
{$ENDIF}
Dos;
(* Returns from which drive the system was booted, requires MS-DOS 4.0+,
else returns '.' *)
function BOOTDRFN : char;
(* Get disk serial number. Requires MS-DOS 4.0+.
Else, or on an error, returns an empty string
The default drive can be pointed to by using 0 *)
function GETSERFN (drive : char) : string;
(* Set disk serial number. Requires MS-DOS 4.0+.
Else, or on an error, sets the status. See TSUNTJ.TST for the codes
For safety allows the operation for drives A and B only *)
procedure SETSER (drive : char; serial : string; var status : integer);
(* A special get disk volume label. Requires MS-DOS 4.0+. *)
function GETVOLFN (drive : char) : string;